BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/K-L/LaserStack.cpt/LaserStack/stack_-1.xml

Extensible Markup Language | 1991-12-16 | 5KB | 24 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>4</cardCount>
    <cardID>2984</cardID>
    <listID>6102</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞LaserStackScript of: stack "LaserStack"©1991 Rick Eames, All Rights ReservedTHE MESSAGE HANDLERS IN THIS SCRIPT:openStack,suspendStack,resumeStack,createmenu,doAbout,doNewdoSearch,genericPrintTHE FUNCTION HANDLERS IN THIS SCRIPT:menuItems,menuMsgsTHE XCMD's USED IN THIS SCRIPT:Thermometer -- ©1991 Steve Maller, All Rights ReservedTHE XFCN's USED IN THIS SCRIPT:Search,Align∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on openStackcreatemenupass openStackend openStackon suspendStackif there is a menu "Movies" then delete menu "Movies"pass suspendStackend suspendStackon resumeStackif there is no menu "Movies" then createMenupass resumeStackend resumeStackon createmenuif there is no menu "Movies" then create menu "Movies"put menuItems() into menu "Movies" with menuMsg menuMsgs()end createmenufunction menuItemsreturn "About...,-,New Movie,Print Generic List,Search..."end menuItemsfunction menuMsgsreturn "doAbout,empty,doNew,genericPrint,doSearch"end menuMsgson doAboutpush cdvisual effect barn door opengo cd "About"end doAbouton doNewend doNewon doSearchpush cardvisual effect barn door opengo cd "Search"end doSearchon genericPrintlock screenput the number of cds in bg 2 into topNumThermometer "Gathering info...",1,topNumput empty into hughTextBlockset itemDelimiter to "∆"put "Title,Time,Rating,Date,ST,CX,SS,DS,WS,Ratio,Comments" into theTitlesput "-,-,-,-,-,-,-,-,-,-,-" into stuffput Align(theTitles,",","20,Left, ","5,Left, ","6,Left, ","4,Left, ","3,Center, ","3,Center, ","3,Center, ","3,Center, ","3,Center, ","6,Left, ","15,Left, ")¬into hughTextBlockput Align(stuff,",-","20,Left, ","5,Left, ","6,Left, ","4,Left, ","3,Center, ","3,Center, ","3,Center, ","3,Center, ","3,Center, ","6,Left, ","15,Left, ")¬after hughTextBlockrepeat with x = 1 to topNumsend x to window "Thermometer"set cursor to busyput bg fld "Title" of cd x of bg 2 into item 1 of tempTextput bg fld "Running Time" of cd x of bg 2 into item 2 of tempTextput bg fld "Rating" of cd x of bg 2 into item 3 of tempTextput bg fld "Release Date" of cd x of bg 2 into item 4 of tempTextif the hilite of bg btn "Stereo" of cd x of bg 2 then put "*" into item 5 of tempTextelse put empty into item 5 of tempTextif the hilite of bg btn "CX Noise Reduction" of cd x of bg 2 then put "*" into item 6 of tempTextelse put empty into item 6 of tempTextif the hilite of bg btn "Surround Sound" of cd x of bg 2 then put "*" into item 7 of tempTextelse put empty into item 7 of tempTextif the hilite of bg btn "Digital Sound" of cd x of bg 2 then put "*" into item 8 of tempTextelse put empty into item 8 of tempTextif the hilite of bg btn "Widescreen" of cd x of bg 2 then put "*" into item 9 of tempTextelse put empty into item 9 of tempTextif item 9 of tempText = "*" then put bg fld "aspect" into item 10 of tempTextelse put empty into item 10 of tempTextput char 1 to 40 of bg fld "Comments" of cd x of bg 2 into item 11 of tempTextput Align(tempText,"∆","20,Left, ","5,Left, ","6,Left, ","4,Left, ","3,Center, ","3,Center, ","3,Center, ","3,Center, ","3,Center, ","6,Left, ","15,Left, ")¬after hughTextBlockend repeatsend close to window "Thermometer"set printTextFont to Courierset printTextSize to 9print hughTextBlockunlock screenend genericPrint</script>
    <background id="2788" file="background_2788.xml" name="Intro" />
    <background id="3803" file="background_3803.xml" name="Titles" />
    <card id="2984" file="card_2984.xml" marked="false" name="" owner="2788" />
    <card id="4765" file="card_4765.xml" marked="false" name="Search" owner="2788" />
    <card id="3902" file="card_3902.xml" marked="false" name="About" owner="2788" />
    <card id="4890" file="card_4890.xml" marked="true" name="" owner="3803" />
</stack>